include(/mnt/Datos/Facultad/Latex/circuit_macros/pgf.m4)
include(/mnt/Datos/Facultad/Latex/circuit_macros/libcct.m4)
   
.PS 
cct_init
  
elen = 0.75
Origin: Here
	source(up_ elen,AC); llabel(,56~V,)
	resistor(right_ elen); rlabel(,40~k\Omega,)
	{
		resistor(down_ to (Here,Origin)); llabel(,40~k\Omega,); 
	}
	line right_ elen
	{
		resistor(down_ to (Here, Origin)); llabel(,20~k\Omega,); 
		T: Here
	}
	resistor(right_ elen); rlabel(,10~k\Omega,);
	{
		resistor(down_ to (Here, Origin)); llabel(,20~k\Omega,); ground;
	}
	line right_ elen
	source(down_ elen, "V")
	line to T
	source(left_ elen, AC); llabel(, v_{s}(t),);
	line to Origin
.PE
